www.gusucode.com > ASP 在线订购程序 > ASP 在线订购程序\code\admin\admin_ok.asp

    <!--#include file="../conn.asp"-->
<!--#include file="login_admin.asp"-->
<%
if session("rank")=1 then
dim action
dim rs
dim id
dim username
dim password
dim rank
action=request("action")
select case action
case "add"
id=request.form("id")
username=request.form("username")
password=request.form("password")
rank=request.form("rank")
if username="" then
response.write "<Script>window.alert('请输入用户名！');javascript:history.back(1);</Script>"
else
set rs=server.createobject("adodb.recordset")
rs.open "select * from admin where id is null",conn,1,3
rs.addnew
rs("username")=username
rs("password")=password
rs("rank")=rank
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('管理员添加成功');location.replace('admin_manage.asp');</Script>"

case "edit"
id=request.form("id")
username=request.form("username")
password=request.form("password")
rank=request.form("rank")
if username="" then
response.write "<Script>window.alert('请输入用户名！');javascript:history.back(1);</Script>"
else
set rs=server.createobject("adodb.recordset")
rs.open "select * from admin where id="&id,conn,1,3
rs("username")=username
rs("password")=password
rs("rank")=rank
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
response.write "<Script>window.alert('管理员修改成功');location.replace('admin_manage.asp');</Script>"

case "delete"
id=Request.QueryString("id")
set rs=server.createobject("adodb.recordset")
rs.open "delete from admin where id="&id,conn,3,3
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('管理员删除成功');location.replace('admin_manage.asp');</Script>"
end select
else
response.write "<Script>window.alert('您的管理员级别不能操作这个功能！');history.go(-1);</Script>"
end if
%>